Sub ϼ()
    
    Dim  As String
    Dim  As String
    Dim  As Variant
    Dim  As String
    
     = CurDir
     = "C:\۾ \"
     = "  (*.xls*), *.xls*"
    
    ChDrive 
    ChDir 
     = Application.GetOpenFilename(FileFilter:=, Title:="۾  ")

    If  <> False Then
        
        Workbooks.Open Filename:=
        
    Else
    
        MsgBox "  ʾҽϴ."
    
    End If

    ChDrive 
    ChDir 
    
End Sub